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2-001 - Converted from FORIOSDEF.FOR into SDL. SBL 23-AUG-1982 
eee SFORIOSDEF; 
® 


pr Define FORTRAN error numbers for use with IOSTAT and ERRSNS 
e i 
CONSTANT NOTFORSPE EQUALS 1 PREFIX FOR TAG $IOS; /* not a FORTRAN specific error 
/* ERRSNS only - IOSTAT can not 
/* return this value. 
| 
CONSTANT SYNERRNAM EQUALS 17 PREFIX FOR TAG $10S; /* syntax error in NAMELIST inpu 
CONSTANT T VAL EQUALS 18 PREFIX FOR TAG $10S; /* too many values for NAMELIS werlabhe 
CONSTANT INVREFVAR EQUALS 19 PREFIX FOR TAG $10S; /* invalid reference to variable 
CONSTANT REWERR EQUALS 20 PREFIX FOR TAG $I10S; /* REWIND error 
CONSTANT peed oe EQUALS 21 PREFIX FOR TAG $10S; /* duplicate file specifications 
CONSTANT INPRECTOO EQUALS § PREFIX FOR TAG $10S; /* input record too long 
CONSTANT BACERR EQUALS PREFIX FOR TAG $I10S; /* BACKSPACE error 
CONSTANT ENDDURREA EQUALS 24 PREFIX FOR TAG $I0S; /* end-of-file during read 
/* (ERRSNS only - IOSTAT returns 
/* a negative value for this error) 
CONSTANT RECNUMOUT EQUALS 25 PREFIX FOR TAG $I0S; /* record number outside range 
CONSTANT OPEDEFREQ EQUALS 26 PREFIX FOR TAG $10S; /* OPEN or DEFINE FILE required 
CONSTANT pone. EQUALS 27 PREFIX FOR TAG $I0S; /* too many records in 1/0 statement 
CONSTANT CLOERR EQUALS 28 PREFIX FOR TAG $I0S; /* CLOSE error 
CONSTANT FILNOTFOU EQUALS 29 PREFIX FOR TAG $I10S; /* file not found 
CONSTANT OPEFAI EQUALS 39 PREFIX FOR TAG $I0OS; /* open failure 
CONSTANT MIXFILACC EQUALS 31 PREFIX FOR TAG $10S; /* mixed file access modes 
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CONSTANT INVLOGUNI EQUALS /* invalid logical unit number 

/* ENDFILE error 

/* unit already open 

/* segmented record format error 

attempt to access non-existent record 
/* inconsistent record Length 

/* error during write 

/* error during read 
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CONSTANT ERRDURREA EQUALS 


CONSTANT RECIO_OPE EQUALS 
VIRMEM 


/* recursive 1/0 operation 
CONSTANT INSVIRME 


/* insufficient virtual memory 

/* no such device 

/* file name specification error 

inconsistent record type 

/* keyword value error in OPEN statement ‘ 

/* inconsistent OPEN/CLOSE parameters : 

/* write to READONLY file , o 

/* invalid argument to FORTRAN Run-Time Library | : 
' 
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CONSTANT L 
CONSTANT INVARGFOR EQUALS 
CONSTANT INVKEYSPE EQUALS /* invalid key specification 

/* inconsistent ey change or duplicate key 
/* inconsistent file organization 

/* specified record locked 
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CONSTANT NO_CURREC EQUALS PR TAG no current record 

CONSTANT REQRITERR EQUALS PR TAG /* REWRITE error 

CONSTANT DELERR EQUALS PR TAG /* DELETE error 

CONSTANT UNLE EQUALS PR TAG /* UNLOCK error 

CONSTANT FINERR EQUALS PR TAG /* FIND error 

CONSTANT LISIO_SYN EQUALS PR TAG $ /* List-difected 1/0 syntax error 

CONSTANT INFFORLOO EQUALS PR TAG ; /* infinite format loop 

CONSTANT FORVARMIS EQUALS PR TAG : /* format/variable-type mismatch 

CONSTANT SYNERRFOR EQUALS PR TAG : /* syntax error in format 

CONSTANT OUTCONERR EQUALS PR TAG 3 /* output conversion error 
CONSTANT INPCONERR EQUALS PR TAG : /* input conversion error 
CONSTANT OUTSTAOVE EQUALS PR TAG ; /* output statement overflows record | 
CONSTANT INPSTAREQ EQUALS P FOR TAG ; /* input statement requires too much data 


R 
CONSTANT VFEVALERR EQUALS 68 PREFIX FOR TAG 


/t Error numbers 70-77 refer to hardware exceptions and are 
/* not returned by IJOSTAT. 
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variable format expression value error 


CONSTANT INTOVF EQUALS 70 PREFIX FOR TAG $10S; /* integer overflow 
CONSTANT INTDIV EQUALS 71 PREFIX FOR TAG $10S; /* poseper divide by zero 
CONSTANT FLTOVF EQUALS i PREFIX FOR TAG $105; /* floating overflow — 
CONSTANT FLTDIV EQUALS 75 PREFIX FOR TAG $I10S; /* floating/decimal divide by zero 
CONSTANT FLTUND EQUALS 74 PREFIX FOR TAG $10S; /* floating underflow 
CONSTANT SUBRNG EQUALS 77 PREFIX FOR TAG $I10S; /* subscript out of range 
/* Error numbers 80-89 refer to Math Library reported errors and 
/* are not returned by IOSTAT. 


CONSTANT WRONUMARG EQUALS 80 PREFIX FOR TAG $I10S; /* yrong nunber of arguments 

CONSTANT INVARGMAT EQUALS 81 PREFIX FOR TAG $I10S; /* invalid argument to math Library 
CONSTANT UNDEXP EQUALS § PREFIX FOR TAG $108; /* undefined exponentiation | 
CONSTANT LOGZERNEG EQUALS PREFIX FOR TAG $10S; /* logarithm of zero or negative value 
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UROONE QUAL S 10S; squar root of negative yelye 
cht gay PR OS; ; gnificance lost in math Library 
OOVEMAT QUAL pe: Loating overftow in math Library 
T FLOUNDMAT EQUALS S; floating underflow in math Library 


CONSTANT ADJARRDIM EQUALS 93 PREF adjustable array dimension error 


fe End of FORIOSDEF .FOR 
END_MODULE SFORIOSDEF ; 
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